Attribute VB_Name = "MainModule"
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Main()
    If Command = "start" Then
        Call StartUp
    Else
        Form1.Show
    End If
End Sub

Sub StartUp()
    Call Read_List
    Dim cTime As Long, dTime As Long
    cTime = 0
    If iList_Count > 0 Then
        For i = 0 To UBound(iList)
            dTime = iList(i).time - cTime
            
            If dTime > 0 Then
                Sleep dTime
            End If
            Shell iList(i).path
            cTime = iList(i).time
        Next i
    
    End If
End Sub
